home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
shazam.exe
/
GSTRING.INT
< prev
next >
Wrap
Text File
|
1992-09-01
|
5KB
|
75 lines
{*******************************************************************
GSTRING.INT
*******************************************************************}
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CASE
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
function IsBlank ( S : string ) : boolean ;
function StrDup ( Ch : char ; Len : byte ) : string ;
function StrUpCase ( S : string ) : string ;
function LoCase ( Ch : char ) : char ;
function StrLoCase ( S : string ) : string ;
function Capitalize ( S : string ) : string ;
function InitialCaps ( S : string ) : string ;
function PadLeft ( S : string ; Ch : char ; Len : byte ) : string ;
function PadRight ( S : string ; Ch : char ; Len : byte ) : string ;
function PutLeft ( S : string ; Ch : char ; Count : byte ) : string ;
function PutRight ( S : string ; Ch : char ; Count : byte ) : string ;
function DeletePos ( S : string ; Start , Stop : integer ) : string ;
function CopyPos ( S : string ; Start , Stop : integer ) : string ;
function Truncate ( Source : string ; Index : byte ) : string ;
function Match ( SubStr , Target : string ) : integer ;
function StrExist ( SubStr , Target : string ) : boolean ;
function StrCount ( SubStr , S : string ) : integer ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
EDIT
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
function TrimLeft ( Source , SubStr : string ) : string ;
function TrimRight ( Source , SubStr : string ) : string ;
function Trim ( Source , SubStr : string ) : string ;
function TrimPrefix ( Source , SubStr : string ) : string ;
function Pluck ( S : string ; Index : byte ) : string ;
function WordCount ( S : string ) : byte ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SEARCH & REPLACE
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
function PosNext ( Substr , Source : string ; Start : byte ) : byte ;
function Extract ( SubStr : string ; VAR Source : string ) : string ;
function Replace ( Source , Original , Replacement : string ) : string ;
function ReplaceChar ( S , CharSet , Replacement : string ) : string ;
function FillBetween ( S : string ; SearchCh , FillCh : char ) : string ;
function CountCh ( Ch : char ; S : string ) : byte ;
function WideSpace ( S : string ; Code : Char ; NewWidth : byte ) : string ;
procedure ConvertLineDraw ( VAR Ch : char ) ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
PARAM/SWITCH
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
function CommandLineString : string ;
function ParameterString : string ;
function SwitchString : string ;
function IsSwitch ( S : string ) : boolean ;
function IsParam ( S : string ) : boolean ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
NAME
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
function ReplaceDir ( FileSpec , Dir : string ) : string ;
function ReplaceName ( FileSpec , Name : string ) : string ;
function ReplaceExt ( FileSpec , Ext : string ; Force : boolean ) : string ;
function DriveDir ( FileSpec : string ) : string ;
function NameOnly ( FileSpec : string ) : string ;
function ExtOnly ( FileSpec : string ) : string ;
function NameExt ( FileSpec : string ) : string ;
function DirOfDrive ( B : byte ) : string ;
function CalcName ( FileName , Path : PathStr ) : PathStr ;
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
FILE
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
function FileExist ( Path : string ) : boolean ;
function DirExist ( DirName : string ) : boolean ;
function FileErase ( S : string ) : boolean ;
function FileRename ( OldName , NewName : string ) : boolean ;
function RezExist ( KeyString , FileName : string ) : boolean ;
function GetName ( S : PathStr ; MaxSize : byte ) : string ;